(in-package :com.ozten.knit.client)

(defun  top-loop-shape ()
  '(0 11   5  4  18 1  
    23 0.7  38 2  45 8 
    38 15  26 16  12 13 ))

(defun left-loop-shape ()
  '( 22 52   17 38    6 35
     -3.5 31   2 9
     12 13
     14  21.5  17 23
     20 24  26 39  22 52))
(defun right-loop-shape ()
  '(26 52
    21.5 41  27 26  30 25
    33 23  35.5 15.5
    44 8
    51 32  41 36
    31 40  26 52))

(defun bottom-left-loop-shape ()
  '(0 48
    7 47.5 15 48.5
    21 54
    7 60  0.5 60))

(defun bottom-right-loop-shape ()
  '(50 60
    42 60  27 54
    34 49
    41 48.5  50 48))

(defun left-bottom-purl-loop-shape ()
  '(0 48
    7 47.5 5 48.5
    5 54
    7 60 0.5 60))